﻿Module Modulo
    Public usuario_datarow_global() As DataRow
    Public dt() As DataRow

    Public idReceta_global As String

#Region "Funciones"
    Public Function comas(ByVal palabra As String) As Integer
        Dim i As Integer
        Dim cant As Integer = 0
        For i = 0 To palabra.Length - 1
            If palabra.Chars(i) = "," Then
                cant += 1
            End If
        Next
        Return cant
    End Function

    Public Function eliminar_comas(ByVal palabra As String) As String
        Dim i As Integer = 0
        While (i <= palabra.Length - 1) And (palabra.Chars(i) <> ",")
            i += 1
        End While
        palabra = palabra.Substring(0, i + 1)
        Return palabra
    End Function
#End Region

End Module
